home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / shuffle / cd.bas < prev    next >
Encoding:
BASIC Source File  |  1995-10-23  |  1.8 KB  |  57 lines
  1. '============================================
  2. ' SHUFFLE CD PLAYER EXAMPLE
  3. ' Copyright(c) 1994 Larry Robert Seater
  4. '============================================
  5. ' Disclaimer of Warranty:
  6.  
  7. ' This software and the accompanying files are 'as is'
  8. ' and without warranties as to performance of the
  9. ' software and the accompanying files or any other
  10. ' warranties whether expressed or implied.
  11. ' No warranty of fitness for a particular purpose
  12. ' is offered.
  13. '
  14. ' You may not sell this software or it's source code.
  15. ' You may use this code in any way you find useful.
  16. ' Enough said!
  17. '
  18. ' This is an example of some things I've learned
  19. ' about the MCI.VBX custom control from the Visual
  20. ' Basic Professional Edition.  This is written in
  21. ' VB Pro 3.0 and needs to be run (I think) on the
  22. ' same.  There may be a few bugs, but I knocked it
  23. ' out in a couple of hours.  There are a few other
  24. ' tricks(?) in the code too.
  25. '
  26. ' Please if you have any comments (good or bad) or
  27. ' any suggestions, or want to trade code write me or
  28. ' E-Mail me at:
  29. ' AOL: LarryS8302
  30. '
  31. ' Land Mail: Larry Seater
  32. '            2124 NE 36th Av.
  33. '            Portland, OR 97212
  34. '
  35. ' Thanks!
  36.  
  37. ' Force all runtime errors to be handled here.
  38. Sub DisplayErrorMessageBox ()
  39.     Select Case Err
  40.         Case MCIERR_CANNOT_LOAD_DRIVER
  41.             Msg$ = "Error load media device driver."
  42.         Case MCIERR_DEVICE_OPEN
  43.             Msg$ = "The device is not open or is not known."
  44.         Case MCIERR_INVALID_DEVICE_ID
  45.             Msg$ = "Invalid device ID."
  46.         Case MCIERR_INVALID_FILE
  47.             Msg$ = "Invalid filename."
  48.         Case MCIERR_UNSUPPORTED_FUNCTION
  49.             Msg$ = "Action not available for this device."
  50.         Case Else
  51.             Msg$ = "Unknown Error (" + Str$(Err) + ")."
  52.     End Select
  53.  
  54.     MsgBox Msg$, 48, MCI_APP_TITLE
  55. End Sub
  56.  
  57.